;2008-05-20
;Av Benjamin Ingberg och Patrik Johansson
;
;Här ligger alla dödsanimationer, spritesen sparas i en assq lista, så när någon dör ritas första bilden ut,
;sedan går en intern counter igång (den som står till vänster om pathen, som räknar hur länge bilden skall visas,
;efter det ritas nästa bild ut. Tills alla bilder i assq listan är slut, då försvinner objectet som har dött.
;Ärver rättigheter från animation

(define player1-death%
  (class animation%
    (init x y board)
    (super-new [x x][y y][w 48][h 48][board board][sprites (list (cons 10 "./sprites/smdies/smdies1.gif")
                                                                 (cons 20 "./sprites/smdies/smdies2.gif")
                                                                 (cons 30 "./sprites/smdies/smdies3.gif")
                                                                 (cons 15 "./sprites/smdies/smdies4.gif")
                                                                 (cons 10 "./sprites/smdies/smdies5.gif")
                                                                 (cons 10 "./sprites/smdies/smdies6.gif")
                                                                 (cons 10 "./sprites/smdies/smdies7.gif")
                                                                 (cons 30 "./sprites/smdies/smdies8.gif"))])))

(define player2-death%
  (class animation%
    (init x y board)
    (super-new [x x][y y][w 48][h 48][board board][sprites (list (cons 10 "./sprites/reddies/reddies1.gif")
                                                                 (cons 20 "./sprites/reddies/reddies2.gif")
                                                                 (cons 30 "./sprites/reddies/reddies3.gif")
                                                                 (cons 15 "./sprites/reddies/reddies4.gif")
                                                                 (cons 10 "./sprites/reddies/reddies5.gif")
                                                                 (cons 10 "./sprites/reddies/reddies6.gif")
                                                                 (cons 10 "./sprites/reddies/reddies7.gif")
                                                                 (cons 30 "./sprites/reddies/reddies8.gif"))])))

(define wall-death%
  (class animation%
    (init x y board)
    (super-new [x x][y y][w 48][h 48][board board][sprites (list (cons 10 "./sprites/wall/walldies1.gif")
                                                                 (cons 20 "./sprites/wall/walldies2.gif")
                                                                 (cons 30 "./sprites/wall/walldies3.gif")
                                                                 (cons 15 "./sprites/wall/walldies4.gif")
                                                                 (cons 10 "./sprites/wall/walldies5.gif")
                                                                 (cons 10 "./sprites/wall/walldies6.gif"))])))

(define evilballoon-death%
  (class animation%
    (init x y board)
    (super-new [x x][y y][w 48][h 48][board board][sprites (list (cons 50 "./sprites/evilballoon/balloon4.gif"))])))

(define blob-death%
  (class animation%
    (init x y board)
    (super-new [x x][y y][w 48][h 48][board board][sprites (list (cons 50 "./sprites/blob/blobdies.gif"))])))